home *** CD-ROM | disk | FTP | other *** search
/ ROM Magic / ROM Magic.iso / pc / data_11 / akna.dir / 00063_Script_63 < prev    next >
Text File  |  1995-01-18  |  807b  |  31 lines
  1. on enlargement
  2.   global frag, myV, myHo, myW, myHi, myL, myT
  3.   puppetSprite 11, true
  4.   put (320-myHo)*2+320 into newHo
  5.   put (225-myV)*2+225 into newW
  6.   put newHo
  7.   if newHo < (640-myW) then put (640-myW) into newHo
  8.   if newHo > myW then put myW into newHo
  9.   put newHo
  10.   set the locH of sprite 11 = newHo
  11.   put newW 
  12.   if newW < (480-myHi) then put (480-myHi) into newW
  13.   if newW > myHi then put myHi into newW
  14.   put newW
  15.   set the locV of sprite 11 = newW
  16.   set the height of sprite 11 = myHi*2
  17.   set the width of sprite 11 = myW*2
  18.   updateStage
  19.   put 1 into frag
  20. end enlargement
  21.  
  22. on small
  23.   global frag, myV, myHo, myW, myHi, myL, myT
  24.   set the height of sprite 11 = myHi
  25.   set the width of sprite 11 = myW
  26.   updateStage
  27.   put 0 into frag
  28.   puppetSprite 11, false
  29. end small
  30.  
  31.